<%@Language="vbscript" Codepage="65001"%> 
<--代码开始->  
<%  
'下面是定义一些变量，是这些变量从表单页面获取信息 

name=Request.Form ("name") 

' 下面就是调用从表单页获取的信息，赋值到mess，&是连接符，vbcrlf表示换行回车: 
mess = mess & "---------------JINGCRE-------------------" & vbcrlf 
mess = mess & "称呼:" & name & vbcrlf 
mess = mess & "---------------JINGCRE-------------------" & vbcrlf  

' 下面是调用Jmail组件的部分，其中邮箱，密码填写正确的，否则发送不成功 
Set JMail=Server.CreateObject("JMail.Message")  
JMail.silent = true                 
'则errorcode包含的是错误代码 
JMail.Logging=True                
'是否使用日志 
JMail.Charset="UTF-8"  
JMail.ContentType = "text/plain"       
'text/html是超文本格式 text/plain是文本格式 
JMail.MailServerUserName = "niuniusoga@163.com"
'您的邮件服务器登录名 
JMail.MailServerPassword = "niuniuno2"        
'登录密码  
JMail.From = "niuniusoga@163.com"                  
'发件人(要填合法正确邮箱才能发出去信件)  
JMail.FromName = "来自JINGCRE"                 
'发件人姓名，引号内的内容可以修改为符合自己的信息  
JMail.AddRecipient "niuniusoga@qq.com"      
'收件人  
JMail.Subject = "JINGCRE 需求单"      
'主题，引号内的内容可以修改为自己认为合适的主题 
JMail.Body = mess     
'正文，通过使用前面的mess调用获取到得表单信息 
JMail.Send "smtp.163.com"                        
'smtp服务器地址  
JMail.Priority=3                               
'1: 最高优先级.2:高 3:普通 4:低 5:最低 
Set JMail=nothing 
%>
<script>
    console.log('mail posted');
</script>
<--代码开始结束->
